home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / share / dos / graficos / plydat14.arj / LOG1.PI < prev    next >
Encoding:
Text File  |  1992-04-05  |  795 b   |  39 lines
  1. // Sample transcendental surface.  This is a logarithmic surface, mostly
  2. // flat, but zooming off to minus infinity near the origin.
  3. // Polyray input file - Alexander Enzmann
  4.  
  5. // Set up the camera
  6. viewpoint {
  7.    from <0,4,-4>
  8.    at <0,0,0>
  9.    up <0,1,0>
  10.    angle 30
  11.    resolution 160, 160
  12.    }
  13.  
  14. // Set up background color & lights
  15. background MidnightBlue
  16. light <10,10,-10>
  17.  
  18. // Define the color of the sphere
  19. define matte_red
  20.    texture {
  21.       surface {
  22.      ambient red, 0.1
  23.      diffuse red, 0.5
  24.      specular white, 0.7
  25.      microfacet Reitz 10
  26.      }
  27.       }
  28.  
  29. define two_unit_sphere
  30.    object { sphere <0,0,0>, 2 }
  31.  
  32. // Define a logarithmic surface
  33. object {
  34.    function y - 0.2 * ln(x^2 + 2.0 * z^2)
  35.    matte_red
  36.    bounds two_unit_sphere
  37.    clips two_unit_sphere
  38.    }
  39.